home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / basic3 / pro3 / clrwndw.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1990-12-30  |  1007 b   |  26 lines
  1. 10  REM This subroutine creates an assembly language routine for clearing a
  2. 20  REM window.  The position of the window is set by the hex position numbers
  3. 30  REM as marked below.  Run this routine at startup then invoke it within
  4. 40  REM the program by: clrw=varptr(wndw%(1)):call clrw
  5. 50  REM
  6. 60  REM        *** Create Assembly Language Routine For Clearing Window ***
  7. 70  REM
  8. 80  RESTORE:DEF SEG        :REM set data segment to basics data seg
  9. 90  I=0:JC=0
  10. 100  DIM WNDW%(26)
  11. 110  MEM%=VARPTR(WNDW%(1))
  12. 120  FOR I=1 TO 26
  13. 130  READ JC
  14. 140  POKE MEM%,JC
  15. 150  MEM%=MEM%+1
  16. 160  NEXT
  17. 170  RETURN                :REM return from this subroutine
  18. 180  REM
  19. 190  REM        *** Data For Window Clearing Routine ***
  20. 200  REM                                        top       top       bottom
  21. 210  REM                                       DEFINTrow      DEFINTcol      DEFINTrow
  22. 220  DATA &h50,&h53,&h51,&h52,&h30,&hc0,&hb5,&h02,&hb1,&h00,&hb6,&h17,&hb2
  23. 230  DATA &h4f,&hb7,&h07,&hb4,&h06,&hcd,&h10,&h5a,&h59,&h5b,&h5b,&hca,&h00,&h90
  24. 240  REM    ^bottom   ^attrib   ^scroll
  25. 250  REM     col                 up
  26.